home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / misc / megabook / storage / sendemail / spot.mbrx next >
Text File  |  1998-12-12  |  819b  |  39 lines
  1. /*
  2. ** Spot EMail sender for MegaBook 3
  3. ** By Tom Bampton
  4. **
  5. ** © 1996 Eden Software
  6. **
  7. ** This is the script run when the Send EMail option is selected from the
  8. ** Extras menu, please see the docs for creating your own script to use
  9. ** your EMail program.
  10. */
  11.  
  12. /*
  13.    Path to Spot, it's run if Spot isn't running
  14.    Change this to the path of your copy of Spot
  15. */
  16. SpotPath = 'Dh1:Spot/Spot'
  17. /*
  18.    The area name to post the EMail in. Change this to your EMail area.
  19. */
  20. EMailArea = 'NET_44_44_44_14'
  21.  
  22. parse arg Address
  23.  
  24. /* Check if Spot is running, if not, run it */
  25. if ~show('P', 'SPOT') then do
  26.     address command
  27.     'run >nil: ' SpotPath
  28.     /* Wait for the ARexx port */
  29.     do 5 while ~show('P', 'SPOT')
  30.         'sys:rexxc/waitforport SPOT'
  31.     end
  32. end
  33.  
  34. address 'SPOT'
  35. options results
  36.  
  37. gotoarea EMailArea
  38. messages
  39. write EMAILADDR Address